home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 2 / Gekikoh Dennoh Club Vol. 2 (Japan).7z / Gekikoh Dennoh Club Vol. 2 (Japan) (Track 01).bin / games / px3 / etc / ektopx1.bas < prev    next >
BASIC Source File  |  1997-09-19  |  10KB  |  165 lines
  1. /*  Oh!X '95/8 PICTﾊﾟｽﾞﾙ ﾓﾝﾀﾞｲﾌｧｲﾙ ｶﾗ "PX" ﾖｳ ﾓﾝﾀﾞｲﾌｧｲﾙ ﾆ ﾍﾝｶﾝｽﾙ ﾌﾟﾛｸﾞﾗﾑ
  2. /*  ﾌｧｲﾙﾈｰﾑ "EMAP_N.DAT" ｦ ｶﾚﾝﾄ ﾆ ｵｲﾃ ｼﾞｯｺｳｼﾃｸﾀﾞｻｲ
  3. int i,j,k,fp
  4. char xsize,ysize
  5. char bitp0,bitp1
  6. dim char ek_map(40601),ek_name(6059)
  7. dim char px_dat(51199)
  8. dim char work(399)
  9. dim int  def_palet(7)={2114,30844,22420,3964,55362,59516,61314,63420}
  10. dim char nam(1600)={
  11. &HFF,&HFF,&HFF,&HFF,&HFF,&H99,&HA8,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  12. &HFF,&HFF,&HFF,&HFF,&H83,&H3F,&H53,&H4E,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  13. &HFF,&HFF,&HFF,&H21,&H6,&H8,&H0,&H0,&H0,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  14. &HFF,&HFF,&HFF,&HFF,&HBC,&HB0,&HB7,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  15. &HFF,&HFF,&HB9,&HCC,&HB6,&HA3,&HD5,&HA0,&H99,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  16. &HFF,&HFF,&HFF,&HFF,&HFF,&HB1,&HAC,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  17. &HFF,&HFF,&HFF,&HFF,&H49,&H51,&H77,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  18. &HFF,&HFF,&HFF,&HFF,&HB1,&HC5,&HA5,&HC5,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  19. &HFF,&HFF,&HFF,&HA3,&HC5,&HCB,&H9A,&H9E,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  20. &HFF,&HFF,&HFF,&HFF,&HD6,&H9F,&HD1,&HC5,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  21. &HFF,&HFF,&HFF,&HFF,&HFF,&H99,&H9B,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  22. &HFF,&HFF,&HFF,&HFF,&H18,&H11,&HE0,&H21,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  23. &HFF,&HFF,&HFF,&HFF,&HBB,&H9D,&HC5,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  24. &HFF,&HFF,&HFF,&HFF,&HA7,&HA0,&HBB,&HD8,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  25. &HFF,&HFF,&HFF,&HFF,&HFF,&H4C,&H5C,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  26. &HFF,&HFF,&HFF,&HFF,&H65,&H49,&H53,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  27. &HFF,&HFF,&HFF,&H59,&H5A,&H6D,&H8A,&H46,&H4E,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  28. &HFF,&HFF,&HFF,&HFF,&H8C,&H6E,&H74,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  29. &HFF,&HFF,&HFF,&HFF,&HB7,&H9D,&HD3,&H9E,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  30. &HFF,&HFF,&HFF,&HFF,&H8C,&H6E,&H74,&H56,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  31. &HFF,&HFF,&HFF,&HFF,&HB2,&HB0,&HB6,&HC0,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  32. &HFF,&HFF,&HFF,&HFF,&H9C,&HD4,&HC5,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  33. &HFF,&HFF,&HFF,&HFF,&HD4,&HC5,&HC3,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  34. &HFF,&HFF,&HFF,&HFF,&HA6,&H9A,&HCD,&H9E,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  35. &HFF,&HFF,&HFF,&HFF,&HB1,&H98,&HAB,&HFD,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  36. &HFF,&HFF,&HFF,&HFF,&HB3,&H9A,&HA5,&HC5,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  37. &HFF,&HFF,&HFF,&HFF,&H53,&H8C,&H70,&HF8,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  38. &HFF,&HFF,&HA8,&H96,&H9A,&HAF,&H9F,&HA7,&H99,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  39. &HFF,&HFF,&HFF,&HFF,&HD6,&HA0,&HA9,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  40. &HFF,&HFF,&HFF,&H4D,&H53,&H65,&HF8,&H4E,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  41. &HFF,&HFF,&HFF,&HFF,&HA7,&HD6,&HA1,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  42. &HFF,&HFF,&HFF,&HFF,&HD4,&HC5,&HA3,&H94,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  43. &HFF,&HFF,&HFF,&HFF,&HAB,&H97,&H9F,&HBF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  44. &HFF,&HFF,&HFF,&HFF,&H60,&H74,&H84,&H6F,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  45. &HFF,&HFF,&HFF,&HFF,&H85,&H5B,&H5B,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  46. &HFF,&HFF,&H8C,&H46,&H52,&H44,&H9F,&HC5,&HFD,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  47. &HFF,&HFF,&HFF,&HFF,&HB3,&HCD,&HA2,&HC5,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  48. &HFF,&HFF,&HFF,&HB1,&HA9,&HB2,&HB0,&HD4,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  49. &HFF,&HFF,&HFF,&HFF,&HAA,&HC5,&HA3,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  50. &HFF,&HFF,&HFF,&HFF,&HBC,&HB7,&HBB,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  51. &HFF,&HFF,&HFF,&HFF,&HA3,&H94,&HBA,&HCD,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  52. &HFF,&HFF,&HFF,&H63,&H6F,&H68,&H46,&H5A,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  53. &HFF,&HFF,&HFF,&HFF,&H6D,&H48,&H56,&HF8,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  54. &HFF,&HFF,&HFF,&HA5,&HC5,&HA4,&H99,&H9D,&HC5,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  55. &HFF,&HFF,&HFF,&HBB,&HBF,&HAB,&HA7,&HAA,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  56. &HFF,&HFF,&HFF,&HA1,&H99,&HB0,&HDA,&HBF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  57. &HFF,&HFF,&HFF,&HFF,&HBA,&H9F,&HD6,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  58. &HFF,&HFF,&HFF,&HB1,&HA3,&HBE,&HD5,&HA0,&H99,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  59. &HFF,&HFF,&H56,&H50,&HB0,&HB1,&H97,&HA8,&H94,&HC5,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  60. &HFF,&HFF,&HA4,&H99,&HA3,&H96,&H9A,&HD1,&HB6,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  61. &HFF,&HFF,&HFF,&HFF,&HFF,&HB5,&HA3,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  62. &HFF,&HFF,&H3,&HA2,&H99,&HB0,&H4F,&HF8,&H4D,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  63. &HFF,&HFF,&HFF,&H86,&H83,&H4B,&H59,&HF8,&H8C,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  64. &HD,&H1B,&HA,&H10,&H18,&H17,&H1C,&H11,&HE,&HA,&H1F,&H17,&HFF,&HFF,&HFF,&HFF,
  65. &HFF,&HFF,&H5A,&HF8,&H4D,&H45,&HF8,&H56,&H72,&HF8,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  66. &HFF,&HFF,&HFF,&H4B,&H51,&H4C,&H5B,&H51,&H74,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  67. &HFF,&HFF,&HFF,&HFF,&H5C,&H64,&H74,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  68. &HFF,&H11,&HE,&H22,&HE0,&HFF,&H1D,&HA,&H21,&H12,&HE0,&HFF,&HFF,&HFF,&HFF,&HFF,
  69. &HFF,&HFF,&HFF,&H1C,&H16,&H12,&H15,&H22,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  70. &HFF,&H1C,&H1E,&H17,&HA,&HFF,&HC,&H15,&H18,&HC,&H14,&HFF,&HFF,&HFF,&HFF,&HFF,
  71. &HFF,&HB3,&H9A,&HCF,&HC5,&HB0,&HAB,&HBA,&HA3,&HD7,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  72. &HFF,&HFF,&HFF,&HCD,&HAA,&HC5,&HA3,&H94,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  73. &HFF,&HFF,&HFF,&H60,&H71,&H49,&H3F,&H74,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  74. &HFF,&H9C,&H9C,&H9E,&HAC,&HFF,&H9E,&HB0,&HA3,&HA7,&HD4,&HFF,&HFF,&HFF,&HFF,&HFF,
  75. &HFF,&HFF,&HFF,&HA5,&HC5,&HA7,&H9F,&HBA,&HB0,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  76. &HFF,&HFF,&HFF,&H53,&H7D,&H4D,&H4E,&H74,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  77. &HFF,&HFF,&H6D,&H7C,&H4B,&HA7,&H99,&HA6,&H9A,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  78. &HFF,&H98,&H99,&HFF,&HB0,&HFF,&HA2,&HA2,&HBB,&H9E,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  79. &HFF,&HFF,&HFF,&H71,&HF8,&H8C,&H49,&H41,&HF8,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  80. &HFF,&HFF,&HFF,&HD8,&H97,&HD8,&HD8,&HF8,&HFD,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  81. &HFF,&H98,&H97,&HA8,&HB8,&H99,&HAA,&HB5,&H99,&HE0,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  82. &HFF,&HFF,&HFF,&HFF,&H6E,&H85,&HF8,&H52,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  83. &HFF,&HFF,&H49,&H46,&H84,&H8D,&H46,&H4C,&HF8,&HFD,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  84. &HFF,&HFF,&HFF,&H1,&H0,&HD,&HA,&H22,&H1C,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  85. &HFF,&HFF,&HA9,&H9E,&HFF,&HB0,&HFF,&H9C,&H9D,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  86. &HFF,&HFF,&H1C,&H11,&H18,&H18,&H1D,&H12,&H17,&H10,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  87. &H15,&HE,&H1D,&H1C,&HFF,&HD,&HA,&H17,&HC,&H12,&H17,&HE0,&HFF,&HFF,&HFF,&HFF,
  88. &HFF,&HFF,&HFF,&HFF,&H80,&HF8,&H58,&HE0,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  89. &HFF,&HFF,&H4E,&H6E,&HF8,&H67,&H55,&HF8,&H80,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  90. &HFF,&HFF,&HFF,&HFF,&HFF,&HD4,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  91. &HFF,&HFF,&HFF,&HDE,&HC5,&HC8,&HC5,&HA2,&HC5,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  92. &HFF,&HFF,&HFF,&HFF,&H84,&H66,&H5F,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  93. &HFF,&HFF,&HC5,&HF8,&H47,&H68,&H6E,&H4C,&H74,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  94. &HFF,&HFF,&HFF,&H79,&HF8,&H54,&H74,&H9F,&HC5,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  95. &HFF,&HFF,&HFF,&HFF,&HAA,&HB3,&HAA,&HB3,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  96. &HFF,&HFF,&HFF,&HFF,&H50,&H74,&H8E,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  97. &HFF,&HFF,&HFF,&HFF,&H9B,&HFF,&HAA,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  98. &HFF,&HFF,&H14,&HE,&H22,&HB,&H18,&HA,&H1B,&HD,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  99. &HFF,&HFF,&HFF,&H9D,&HC5,&HBE,&HC5,&HA3,&H94,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  100. &HFF,&HA3,&HC2,&H99,&HB1,&H97,&HAA,&H99,&H99,&HAC,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  101. &HFF,&HFF,&HFF,&HFF,&H47,&H51,&H76,&H4B,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  102. &HFF,&HFF,&HFF,&HFF,&HAB,&H9A,&HD1,&H99,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  103. &HFF,&HFF,&HFF,&HFF,&H9D,&H9D,&HA3,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  104. &HFF,&HFF,&HC,&HA,&H15,&H15,&HFF,&H16,&HE,&HE0,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  105. &HFF,&HFF,&HFF,&H20,&HA,&H1D,&HE,&H1B,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  106. &HFF,&HFF,&HFF,&H9A,&HAC,&HCD,&H95,&H9A,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  107. &HFF,&HFF,&HFF,&HFF,&HFF,&HB0,&H9A,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  108. &HFF,&H1D,&H11,&HE,&HFF,&H20,&H18,&H1B,&H15,&HD,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  109. &HFF,&HFF,&HFF,&HB9,&HD1,&HB6,&HBB,&H9E,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  110. &HFF,&HFF,&H10,&H18,&H18,&HD,&HFF,&HB,&H22,&HE,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF}
  111.  
  112. /*--------
  113. fp=fopen("emap_n.dat","r")
  114. fread(ek_map,40602,fp)
  115. fclose(fp)
  116.  
  117. for i=0 to 99
  118.     print using"STAGE:###";i+1
  119.     print chr$(&H1E);
  120.  
  121. /* -: ﾓﾝﾀﾞｲ ｻｲｽﾞ :-
  122.     xsize=ek_map(i*402+402    )
  123.     ysize=ek_map(i*402+402+  1)
  124.     px_dat((i shl 9)    )=ek_map(i*402+402    )
  125.     px_dat((i shl 9)+  1)=ek_map(i*402+402+  1)
  126.  
  127. /* -: ﾀｲﾄﾙ :-
  128.     for j=0 to 15
  129.         px_dat((i shl 9)+  2+j)=nam((i shl 4)+j)
  130.     next
  131.  
  132. /* -: ﾊﾟﾚｯﾄ :-
  133.     for j=0 to 7
  134.         k=def_palet(j)
  135.         px_dat((i shl 9)+ 18+(j shl 1))=k shr 8
  136.         px_dat((i shl 9)+ 19+(j shl 1))=k and 255
  137.     next
  138.  
  139. /* -: ﾚｺｰﾄﾞ :-
  140.     px_dat((i shl 9)+ 36)=&H00
  141.     px_dat((i shl 9)+ 37)=&H05
  142.     px_dat((i shl 9)+ 38)=&H7E
  143.     px_dat((i shl 9)+ 39)=&H3F
  144.  
  145. /* -: ﾓﾝﾀﾞｲ ﾃﾞｰﾀ :-
  146.     for j=0 to 399 : work(j)=0 : next
  147.     for j=0 to ysize-1
  148.     for k=0 to xsize-1
  149.         work(j*20+k)=ek_map(i*402+402+  2+j*xsize+k)
  150.     next
  151.     next
  152.     for k=0 to 19
  153.     for j=0 to 9
  154.         if work(k*20+j*2) = 0 then bitp0=14 else bitp0=1
  155.         if work(k*20+j*2+1) = 0 then bitp1=14 else bitp1=1
  156.         px_dat((i shl 9)+ 62+ k*15+j)=(bitp0 shl 4)+bitp1
  157.     next
  158.     next
  159. next
  160.  
  161. /* -: ｾｰﾌﾞ :-
  162. fp=fopen("PX_STG4.DAT","c")
  163. fwrite(px_dat,51200,fp)
  164. fcloseall()
  165.